
let $doc := //оглавление[@doc eq "1001"]
return
    update delete $doc/*[1]/*[1]
